home *** CD-ROM | disk | FTP | other *** search
/ Sprite 1984 - 1993 / Sprite 1984 - 1993.iso / lib / perl / status.ph < prev    next >
Text File  |  1991-08-11  |  6KB  |  144 lines
  1. if (!defined &_STATUS) {
  2.     eval 'sub _STATUS {1;}';
  3.     if (!defined &_ASM) {
  4.     if (!defined &_SPRITE) {
  5.         require 'sprite.ph';
  6.     }
  7.     eval 'sub STAT_IS_PRIVATE {
  8.         local($status) = @_;
  9.         eval "(($status) & 0x80000000)";
  10.     }';
  11.     eval 'sub STAT_MODULE {
  12.         local($status) = @_;
  13.         eval "((($status)& 0x7fffffff) >> 16)";
  14.     }';
  15.     eval 'sub STAT_MSGNUM {
  16.         local($status) = @_;
  17.         eval "(($status) & 0x0000FFFF)";
  18.     }';
  19.     }
  20.     eval 'sub GEN_SUCCESS {0x00000000;}';
  21.     eval 'sub GEN_FAILURE {0x00000001;}';
  22.     eval 'sub GEN_ABORTED_BY_SIGNAL {0x00000002;}';
  23.     eval 'sub GEN_NO_PERMISSION {0x00000003;}';
  24.     eval 'sub GEN_NOT_IMPLEMENTED {0x00000004;}';
  25.     eval 'sub GEN_INVALID_ARG {0x00000005;}';
  26.     eval 'sub GEN_TIMEOUT {0x00000006;}';
  27.     eval 'sub GEN_EPERM {0x00000007;}';
  28.     eval 'sub GEN_ENOENT {0x00000008;}';
  29.     eval 'sub GEN_EINTR {0x00000009;}';
  30.     eval 'sub GEN_E2BIG {0x0000000a;}';
  31.     eval 'sub GEN_EAGAIN {0x0000000b;}';
  32.     eval 'sub GEN_EACCES {0x0000000c;}';
  33.     eval 'sub GEN_EFAULT {0x0000000d;}';
  34.     eval 'sub GEN_EEXIST {0x0000000e;}';
  35.     eval 'sub GEN_EINVAL {0x0000000f;}';
  36.     eval 'sub GEN_EFBIG {0x00000010;}';
  37.     eval 'sub GEN_ENOSPC {0x00000011;}';
  38.     eval 'sub GEN_ERANGE {0x00000012;}';
  39.     eval 'sub GEN_EIDRM {0x00000013;}';
  40.     eval 'sub PROC_BAD_FILE_NAME {0x00010000;}';
  41.     eval 'sub PROC_BAD_AOUT_FORMAT {0x00010001;}';
  42.     eval 'sub PROC_NO_SEGMENTS {0x00010002;}';
  43.     eval 'sub PROC_CHILD_PROC {0x00010003;}';
  44.     eval 'sub PROC_NO_EXITS {0x00010004;}';
  45.     eval 'sub PROC_INVALID_PID {0x00010005;}';
  46.     eval 'sub PROC_UID_MISMATCH {0x00010006;}';
  47.     eval 'sub PROC_NO_CHILDREN {0x00010007;}';
  48.     eval 'sub PROC_INVALID_FAMILY_ID {0x00010008;}';
  49.     eval 'sub PROC_NOT_SET_ENVIRON_VAR {0x00010009;}';
  50.     eval 'sub PROC_BAD_ENVIRON_STRING {0x0001000a;}';
  51.     eval 'sub PROC_ENVIRON_FULL {0x0001000b;}';
  52.     eval 'sub PROC_INVALID_NODE_ID {0x0001000c;}';
  53.     eval 'sub PROC_MIGRATION_REFUSED {0x0001000d;}';
  54.     eval 'sub PROC_INVALID_STRING {0x0001000e;}';
  55.     eval 'sub PROC_NO_STACKS {0x0001000f;}';
  56.     eval 'sub PROC_NO_PEER {0x00010010;}';
  57.     eval 'sub SYS_ARG_NOACCESS {0x00020000;}';
  58.     eval 'sub SYS_INVALID_ARG {0x00020001;}';
  59.     eval 'sub SYS_INVALID_SYSTEM_CALL {0x00020002;}';
  60.     eval 'sub RPC_INVALID_ARG {0x00030000;}';
  61.     eval 'sub RPC_NO_CHANNELS {0x00030001;}';
  62.     eval 'sub RPC_TIMEOUT {0x00030002;}';
  63.     eval 'sub RPC_TOO_MANY_ACKS {0x00030003;}';
  64.     eval 'sub RPC_INTERNAL_ERROR {0x00030004;}';
  65.     eval 'sub RPC_INVALID_RPC {0x00030005;}';
  66.     eval 'sub RPC_NULL_ERROR {0x00030006;}';
  67.     eval 'sub RPC_PARAMS_TOOBIG {0x00030007;}';
  68.     eval 'sub RPC_DATA_TOOBIG {0x00030008;}';
  69.     eval 'sub RPC_NO_REPLY {0x00030009;}';
  70.     eval 'sub RPC_SERVICE_DISABLED {0x0003000a;}';
  71.     eval 'sub RPC_NACK_ERROR {0x0003000b;}';
  72.     eval 'sub RPC_FS_NO_PREFIX {0x0003000c;}';
  73.     eval 'sub FS_NO_ACCESS {0x00040000;}';
  74.     eval 'sub FS_INVALID_ARG {0x00040001;}';
  75.     eval 'sub FS_REMOTE_OP_INVALID {0x00040002;}';
  76.     eval 'sub FS_LOCAL_OP_INVALID {0x00040003;}';
  77.     eval 'sub FS_DEVICE_OP_INVALID {0x00040004;}';
  78.     eval 'sub FS_NEW_ID_TOO_BIG {0x00040005;}';
  79.     eval 'sub FS_MASTER_CLOSED {0x00040006;}';
  80.     eval 'sub FS_BROKEN_PIPE {0x00040007;}';
  81.     eval 'sub FS_NO_DISK_SPACE {0x00040008;}';
  82.     eval 'sub FS_LOOKUP_REDIRECT {0x00040009;}';
  83.     eval 'sub FS_NO_HANDLE {0x0004000a;}';
  84.     eval 'sub FS_NEW_PREFIX {0x0004000b;}';
  85.     eval 'sub FS_FILE_NOT_FOUND {0x0004000c;}';
  86.     eval 'sub FS_WOULD_BLOCK {0x0004000d;}';
  87.     eval 'sub FS_BUFFER_TOO_BIG {0x0004000e;}';
  88.     eval 'sub FS_IS_DIRECTORY {0x0004000f;}';
  89.     eval 'sub FS_NOT_DIRECTORY {0x00040010;}';
  90.     eval 'sub FS_NOT_OWNER {0x00040011;}';
  91.     eval 'sub FS_STALE_HANDLE {0x00040012;}';
  92.     eval 'sub FS_FILE_EXISTS {0x00040013;}';
  93.     eval 'sub FS_DIR_NOT_EMPTY {0x00040014;}';
  94.     eval 'sub FS_NAME_LOOP {0x00040015;}';
  95.     eval 'sub FS_CROSS_DOMAIN_OPERATION {0x00040016;}';
  96.     eval 'sub FS_TIMEOUT {0x00040017;}';
  97.     eval 'sub FS_NO_SHARED_LOCK {0x00040018;}';
  98.     eval 'sub FS_NO_EXCLUSIVE_LOCK {0x00040019;}';
  99.     eval 'sub FS_WRONG_TYPE {0x0004001a;}';
  100.     eval 'sub FS_FILE_REMOVED {0x0004001b;}';
  101.     eval 'sub FS_FILE_BUSY {0x0004001c;}';
  102.     eval 'sub FS_BAD_SEEK {0x0004001d;}';
  103.     eval 'sub FS_DOMAIN_UNAVAILABLE {0x0004001e;}';
  104.     eval 'sub FS_VERSION_MISMATCH {0x0004001f;}';
  105.     eval 'sub FS_NOT_CACHEABLE {0x00040020;}';
  106.     eval 'sub VM_WRONG_SEG_TYPE {0x00050000;}';
  107.     eval 'sub VM_SEG_TOO_LARGE {0x00050001;}';
  108.     eval 'sub VM_SHORT_READ {0x00050002;}';
  109.     eval 'sub VM_SHORT_WRITE {0x00050003;}';
  110.     eval 'sub VM_SWAP_ERROR {0x00050004;}';
  111.     eval 'sub VM_NO_SEGMENTS {0x00050005;}';
  112.     eval 'sub SIG_INVALID_SIGNAL {0x00060000;}';
  113.     eval 'sub SIG_INVALID_ACTION {0x00060001;}';
  114.     eval 'sub DEV_DMA_FAULT {0x00070000;}';
  115.     eval 'sub DEV_INVALID_UNIT {0x00070001;}';
  116.     eval 'sub DEV_TIMEOUT {0x00070002;}';
  117.     eval 'sub DEV_OFFLINE {0x00070003;}';
  118.     eval 'sub DEV_HANDSHAKE_ERROR {0x00070004;}';
  119.     eval 'sub DEV_RETRY_ERROR {0x00070005;}';
  120.     eval 'sub DEV_NO_DEVICE {0x00070006;}';
  121.     eval 'sub DEV_INVALID_ARG {0x00070007;}';
  122.     eval 'sub DEV_HARD_ERROR {0x00070008;}';
  123.     eval 'sub DEV_END_OF_TAPE {0x00070009;}';
  124.     eval 'sub DEV_NO_MEDIA {0x0007000a;}';
  125.     eval 'sub DEV_EARLY_CMD_COMPLETION {0x0007000b;}';
  126.     eval 'sub DEV_NO_SENSE {0x0007000c;}';
  127.     eval 'sub DEV_BLANK_CHECK {0x0007000d;}';
  128.     eval 'sub DEV_BUSY {0x0007000e;}';
  129.     eval 'sub DEV_RESET {0x0007000f;}';
  130.     eval 'sub NET_UNREACHABLE_NET {0x00080000;}';
  131.     eval 'sub NET_UNREACHABLE_HOST {0x00080001;}';
  132.     eval 'sub NET_CONNECT_REFUSED {0x00080002;}';
  133.     eval 'sub NET_CONNECTION_RESET {0x00080003;}';
  134.     eval 'sub NET_NO_CONNECTS {0x00080004;}';
  135.     eval 'sub NET_ALREADY_CONNECTED {0x00080005;}';
  136.     eval 'sub NET_NOT_CONNECTED {0x00080006;}';
  137.     eval 'sub NET_ADDRESS_IN_USE {0x00080007;}';
  138.     eval 'sub NET_ADDRESS_NOT_AVAIL {0x00080008;}';
  139.     eval 'sub NET_BAD_PROTOCOL {0x00080009;}';
  140.     eval 'sub NET_BAD_OPERATION {0x0008000a;}';
  141.     eval 'sub NET_BAD_OPTION {0x0008000b;}';
  142. }
  143. 1;
  144.